home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kolekce / d3456 / gmprintsuite_eval.exe / {app} / GmErrors.pas < prev    next >
Pascal/Delphi Source File  |  2002-01-02  |  1KB  |  47 lines
  1. unit GmErrors;
  2.  
  3. interface
  4.  
  5. uses Dialogs, classes;
  6.  
  7. const
  8.   // GmPreview errors...
  9.   PAGE_SIZE_NOT_FOUND   = 'Page size not found.';
  10.   PAGE_OUT_OF_RANGE     = 'Page is out of range.';
  11.   INDEX_OUT_OF_RANGE    = 'Printer index is out of range.';
  12.   NO_PRINTER_SELECTED   = 'No printer selected';
  13.   PRINTING_IN_PROGRESS  = 'Unable to initialise printer... Printing in progress.';
  14.   INVALID_SHADOW_WIDTH  = 'Invalid shadow width...'+#13+#13+'Value must be in range (1-20)';
  15.   // GmThumbnails errors...
  16.   THUMB_SIZE_INVALID    = 'Thumbnail size must be in the range 1-20.';
  17.  
  18.   // GmGridPrint errors...
  19.   ERROR = 'Error...';
  20.   PREVIEW_NOT_ASSIGNED  = 'Preview property not assigned.';
  21.   NO_PREVIEW_ASSIGNED = 'You must assign the TGmGridPrint component to a'+#13+
  22.                         'GmPreview component before calling this function.';
  23.  
  24.                         
  25.   FILE_NOT_FOUND        = 'File not found.';
  26.   CANT_READ_VERSION     = 'Unable to read file version.';
  27.   CANT_OPEN_FILE        = 'Unable to open file';
  28.   // General errors...
  29.  
  30.   procedure ShowGmError(Sender: TComponent; AError: string);
  31.  
  32.  
  33. implementation
  34.  
  35. procedure ShowGmError(Sender: TComponent; AError: string);
  36. begin
  37.   MessageDlg(Sender.ClassName+' Error...' + #13 + #13 + AError, mtInformation, [mbOk], 0);
  38. end;
  39.  
  40. end.
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.